home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / powerd0.06 / modules / lib / powerd.m
Text File  |  1999-11-30  |  4KB  |  108 lines
  1. OPT    LINK='powerd.lib'
  2.  
  3. // String/EString functions ////////////
  4. LPROC EStrAdd(dstr:PTR TO CHAR,sstr:PTR TO CHAR,length=-1)(PTR TO CHAR)
  5. LPROC EStrCopy(dstr:PTR TO CHAR,sstr:PTR TO CHAR,length=-1)(PTR TO CHAR)
  6. LPROC EStringF(dstr:PTR TO CHAR,fstr:PTR TO CHAR,list=NIL:LIST OF LONG)(PTR TO CHAR)
  7. LPROC EStrLen(dstr:PTR TO CHAR)(LONG)
  8. LPROC EStrMax(dstr:PTR TO CHAR)(LONG)
  9. LPROC InStr(dstr:PTR TO CHAR,str:PTR TO CHAR,start=0:LONG)(LONG)
  10. LPROC MidEStr(estr:PTR TO CHAR,str:PTR TO CHAR,start,length)(PTR TO CHAR)
  11. //LPROC MidStr(string:PTR TO CHAR,str:PTR TO CHAR,start,length)(PTR TO CHAR)
  12. LPROC IsAlpha(char:LONG)(BOOL)
  13. //LPROC IsBin(char:LONG)(BOOL)
  14. LPROC IsHex(char:LONG)(BOOL)
  15. LPROC IsNum(char:LONG)(BOOL)
  16. LPROC LowerStr(str:PTR TO CHAR)(PTR TO CHAR)
  17. LPROC NewEStr(length:ULONG)(PTR TO CHAR)
  18. LPROC OStrCmp(dstr:PTR TO CHAR,sstr:PTR TO CHAR,length=-1)(LONG)
  19. LPROC ReadEStr(fh:BPTR,estr:PTR TO CHAR)(LONG)
  20. //LPROC ReadStr(fh:BPTR,str:PTR TO CHAR)(LONG)
  21. LPROC ReEStr(str:PTR TO CHAR)
  22. LPROC RemEStr(str:PTR TO CHAR)
  23. LPROC RightEStr(dstr:PTR TO CHAR,sstr:PTR TO CHAR,length)(PTR TO CHAR)
  24. //LPROC RightStr(dstr:PTR TO CHAR,sstr:PTR TO CHAR,length)(PTR TO CHAR)
  25. LPROC SetEStr(str:PTR TO CHAR,length:LONG)
  26. LPROC StrAdd(dstr:PTR TO CHAR,sstr:PTR TO CHAR,length=-1)(BOOL)
  27. LPROC StrCmp(dstr:PTR TO CHAR,sstr:PTR TO CHAR,length=-1)(BOOL)
  28. LPROC StrCopy(dstr:PTR TO CHAR,sstr:PTR TO CHAR,length=-1)(BOOL)
  29. LPROC StringF(dstr:PTR TO CHAR,fstr:PTR TO CHAR,list=NIL:LIST OF LONG)(PTR TO CHAR)
  30. LPROC StrLen(dstr:PTR TO CHAR)(LONG)
  31. LPROC TrimStr(str:PTR TO CHAR)(PTR TO CHAR)
  32. LPROC UpperStr(str:PTR TO CHAR)(PTR TO CHAR)
  33.  
  34. // Math functions //////////////////////
  35. RPROC Abs(d0:LONG)(LONG)//='\ttst.l\td0\n\tbge.s\t.noneg\n\tneg.l\td0\n.noneg\n'
  36. RPROC And(d0:LONG,d1:LONG)(LONG)='\tand.l\td1,d0\n'
  37. RPROC EOr(d0:LONG,d1:LONG)(LONG)='\teor.l\td1,d0\n'
  38. RPROC Or(d0:LONG,d1:LONG)(LONG)='\tor.l\td1,d0\n'
  39. RPROC Neg(d0:LONG)(LONG)='\tneg.l\td0\n'
  40. RPROC Not(d0:LONG)(LONG)='\tnot.l\td0\n'
  41. RPROC Rol(d0:LONG,d1:LONG)(LONG)='\trol.l\td1,d0\n'
  42. RPROC Ror(d0:LONG,d1:LONG)(LONG)='\tror.l\td1,d0\n'
  43. RPROC Shl(d0:LONG,d1:LONG)(LONG)='\tasl.l\td1,d0\n'
  44. RPROC Shr(d0:LONG,d1:LONG)(LONG)='\tasr.l\td1,d0\n'
  45. RPROC Sign(d0:LONG)(LONG)
  46.  
  47. // FPU functions ///////////////////////
  48. RPROC Pow(fp0:DOUBLE,fp1:DOUBLE)(DOUBLE)
  49.  
  50. // Intuition support functions /////////
  51. LPROC Mouse()(LONG)
  52. LPROC MouseX(window)(LONG)
  53. LPROC MouseXY(window)(LONG,LONG)
  54. LPROC MouseY(window)(LONG)
  55. EPROC WaitIMessage(window)(LONG,LONG,LONG,LONG)
  56.  
  57. // Miscellaneous functions /////////////
  58. LPROC CtrlC()(BOOL)
  59. LPROC CtrlD()(BOOL)
  60. LPROC CtrlE()(BOOL)
  61. LPROC CtrlF()(BOOL)
  62.  
  63. RPROC Byte(a0:PTR TO BYTE)(LONG)
  64. RPROC Word(a0:PTR TO WORD)(LONG)
  65. RPROC Long(a0:PTR TO LONG)(LONG)
  66.  
  67. LPROC PutByte(a0:PTR TO BYTE,d0:LONG)(LONG)
  68. LPROC PutWord(a0:PTR TO WORD,d0:LONG)(LONG)
  69. LPROC PutLong(a0:PTR TO LONG,d0:LONG)(LONG)
  70.  
  71. LPROC Bounds(d0:LONG,d1:LONG,d2:LONG)(LONG)
  72. LPROC Even(d0:LONG)(BOOL)
  73. LPROC Odd(d0:LONG)(BOOL)
  74. LPROC Max(d0:LONG,d1:LONG)(LONG)
  75. LPROC Min(d0:LONG,d1:LONG)(LONG)
  76.  
  77. LPROC Rnd(top:LONG)(LONG)
  78. LPROC RndQ(top:LONG)(LONG)
  79.  
  80. EPROC FileLength(name:PTR TO CHAR)(LONG)
  81. LPROC KickVersion(requied:LONG)(BOOL)
  82.  
  83. LPROC Inp(fh:BPTR)(LONG)
  84. LPROC Out(fh:BPTR,ch:LONG)
  85.  
  86. EPROC RealStr(str:PTR TO UBYTE,f:DOUBLE,n=1)(PTR TO UBYTE)
  87. EPROC RealEStr(estr:PTR TO UBYTE,f:DOUBLE,n=1)(PTR TO UBYTE)
  88. EPROC RealVal(str:PTR TO UBYTE,pos=0)(DOUBLE)
  89. EPROC Val(s:PTR TO UBYTE,n=0)(LONG)
  90.  
  91.  
  92. /*
  93. RPROC OpenW()
  94. RPROC OpenS()
  95. RPROC CloseW()
  96. RPROC CloseS()
  97.  
  98. RPROC SetDefRast(w:PTR TO Window)(PTR TO RastPort)
  99. RPROC GetDefRast(w:PTR TO Window)(PTR TO RastPort)
  100. RPROC Colour(c,b=-1)
  101. RPROC Line(x1,y1,x2,y2,c=-1)
  102. RPROC Plot(x,y,c=-1)
  103. RPROC Box(x1,y1,x2,y2,c=-1)
  104. RPROC IBox(x,y,w,h,c=-1)
  105. RPROC Ellipse(x,y,w,h,c=-1)
  106. RPROC TextF(x,y,fmt,args)
  107. */
  108.